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For an 8051 jiP, converting a 16-bit binary integer to 
decimal form is considerably more complicated than 
converting an 8-bit integer. The most straightforward 
method uses a 16-bit-divide routine. Listing I's alter- 
native method takes advantage of the 8051's BCD com- 
mands. Using the BCD commands results in simple 
and clean code. 

The listing is for the Boston Systems Office 
(Waltham, MA) 8051 macro assembler. Its macro defi- 


nitions differ somewhat from Intel's. The listing uses 
(rO, rl) and (r2, r3, r4) for the input and output, respec- 
tively; but you can use any five 8051 registers or any 
five internal-direct memory locations. You can obtain 
the listing from the EDN BBS. Phone (617) 558-4241 
with modem settings 300/1200/2400, 8, N, 1. From the 
main menu, enter (s)ig, <s/di_sig>, rk946). 
(EDN BBS /DI_SIG #946) 
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Listing 1 — 8051 Radix-conversion routine 


title airbed 


; Listing controls 
t nocond 
t ganonly 


rldS ucro %xl, %x2 

i Farfons * 16-bit rotate left throogh tile Carry flag. 


moY 

rlc 
nov 
aoT 

rlc 

■OT 


%x2 
a 

Xx2, a 
a, Xxl 
a 

Xxl, a 


drbcd nacro Xxl, Xx2, %x3 
i Initialises the packed bed digits. 
■OT %x3, #0 
■or Xx2, #0 
Xxl. #0 


inched aaero Xxl, Xx2, Xx3 

; Increments the packed bed digits bjr 1| if the earrj is set. 

mov a, Xx3 

addc a, #0 

da a 

■OT %x3, a 

mov a, Xx2 

addc a, #0 

da a 

■OT ftc3, a 

■OT a, Xxl 

addc a, #0 

da a 

bl, a 


dblbcd macro Xxl, Xx2, Xx3 

; Doubles the packed bed digits. 

■OT a, Xx3 

add a, XxS 

da a 

mov Xx3, a 

mov a, Xx2 


addc 
da 


a, XkS 
a' 

Xx2, a 


a, Xxl 

a, Xxl 


■OT 

addc 
da a 
■OT Xxl, a 


cnTbcd: 

; CNVBCD accepts a 18-blt unsigned binarj iatagar and eonrerts it into 

; 5 packed bed digits. 

; The input is passed in (rO,rl). 

; The output is returned in (r2,r3,r4). 

; Note : The contents of RO ft Rl are destroyed at the end of this routine. 


• The following algoritha is used. 

• See Knuth, 'The Art of Coaputer 

• Section 4.4, Radix ConTersion. 

» y ;= ; 

• for i := 1 to 15 do 

• y := y * x[16-i] J 

• y := y » 2 J 

• end do ; 

• T := y * xtO] J 


noT r7, #15 
clrbed r2, r3, r4 
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rlcie rO, rl 

inched r2, r3, r4 

dblbcd r2, r3, r4 

djnz r7. It 

rleia rO, rl 

inched r2, rS, r4 

ret 

end 


i 
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